home *** CD-ROM | disk | FTP | other *** search
/ 10,000 Designer Photos / 10,000 designer photos.iso / menu.dxr / 00010_UI Rollover Change Pointer .ls < prev    next >
Encoding:
Text File  |  1999-04-14  |  1.5 KB  |  29 lines
  1. property outcurs, incurs, incursSet, customImage, customMask, oldcursor, useCustom
  2.  
  3. on translate_cursor me, setting, image, mask, Custom
  4.   if Custom then
  5.     val = [member(image), member(mask)]
  6.     return val
  7.   end if
  8.   return setting
  9. end
  10.  
  11. on beginSprite me
  12.   oldcursor = the cursor of sprite me.spriteNum
  13.   val = translate_cursor(me, me.incursSet, customImage, customMask, useCustom)
  14.   set the cursor of sprite the spriteNum of me to val
  15. end
  16.  
  17. on endSprite me
  18.   set the cursor of sprite the spriteNum of me to oldcursor
  19. end
  20.  
  21. on getPropertyDescriptionList
  22.   p_list = [#incursSet: [#comment: "Pointer Image:", #format: #cursor, #default: 1], #useCustom: [#comment: "Use Custom Pointer:", #format: #boolean, #default: 0], #customImage: [#comment: "Custom Image:", #format: #bitmap, #default: member(1)], #customMask: [#comment: "Custom Mask:", #format: #bitmap, #default: member(1)]]
  23.   return p_list
  24. end
  25.  
  26. on getBehaviorDescription
  27.   return "Changes the pointer image when the pointer rolls over the current sprite. Choose one of the pointers included with Director, or specify a 1-bit bitmapped cast member." & RETURN & "PARAMETERS:" & RETURN & "ΓÇó Pointer Image - Choose one of Director's included pointers." & RETURN & "ΓÇó Use Custom Pointer - Turn this option on to specify a cast member instead of an included pointer." & RETURN & "ΓÇó Custom Image  - ( optional ) Choose a cast member to use as the pointer image.  This choice is ignored unless Use Custom Pointer is on." & RETURN & "ΓÇó Custom Mask - ( optional ) Choose a cast member to use as mask image."
  28. end
  29.